home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / texts / francegu.lha / France_Guide_2.0ﾟ1 / Install / Install_France_Guide < prev   
Text File  |  1996-04-27  |  22KB  |  470 lines
  1. ; $VER: Install_France_Guide 2.1ßeta1 (27.4.96) écrit par Gérard Cornu pour "Saint Jérôme le Gueux",
  2. ;                                             alias "l'Homme qui a vu l'Ours" ;-)
  3. ;  
  4. ;-- Language specific string definitions --------------------------------------
  5.  
  6. ; hd space needed for France Guide, in Kilo bytes
  7. (set space_needed 3900) 
  8.                                                                                
  9. ; ENGLISH (or close enough ;-) (by Gérard Cornu) ------------------------- 
  10. (procedure P_english (
  11.    
  12.    (set README_FILE "ReadMe")
  13.  
  14.    (set MSG_NO_SPACE (cat "There isn't enough disk space on %s, %s needs %ld KB and there is only"
  15.                           " %ld KB free. You will have to free up over %ld KB on %s.\n\n"))
  16.  
  17.    (set MSG_NO_SPACE_0 (cat " If you just want to install %s in RAM: and you have more than %ld"
  18.                             " free RAM, you'll have to delete the corresponding lines in the"
  19.                             " install script.\n(The RAM: disk is always full ;-)"))
  20.    
  21.    (set MSG_BAD_KICK "%s needs at least System 2.0\n(3.x preferable !)")
  22.  
  23.    (set MSG_NOT_3.0  (cat  "\n\nI just found out that you are not using system 3.x."
  24.                            " %s can be used on your system, with AmigaGuide©, but you won't be able to"
  25.                            " display the maps directly from %s.\n\n"
  26.                            "Click on \"Help...\" to get some infos about a work around."))
  27.                            
  28.    (set MSG_HELP_NOT_3.0 (cat "You just have to replace, in the France.Guide file the\n\n"
  29.                            "  LINK Cartes/....iff/MAIN}\n\n"
  30.                            "parts, by\n\n"
  31.                            "  SYSTEM \"PPShow Cartes:....iff\"}\n\n"
  32.                            "Then you'll have to assign Cartes: to the directory where you"
  33.                            " installed France Guide with Cartes appended to it, ie:\n\n"
  34.                            "assign Cartes:  My_HD:My_directory/France/Cartes\n\n"
  35.                            "Of course, you may replace PPShow by your prefered"
  36.                            " picture viewer. Please note that the quotes below are important.\n\n"
  37.                            "Two find and replace in your text editor will accomplish this:\n\n"               
  38.                            "Find:\n\n"
  39.                            "LINK Cartes/\n\n"
  40.                            "Replace by:\n\n"
  41.                            "SYSTEM \"PPShow Cartes:\n\n"
  42.                            "Then find:\n\n"
  43.                            ".iff/MAIN}\n\n"
  44.                            " and replace by:\n\n"
  45.                            ".iff\"}\n\n"
  46.                            "Yet again, the quotes are note here for decorative purpose ;-)\n\n"
  47.                            "The directory containing the picture viewer, PPShow in our"
  48.                            " example, must be in your command path."))
  49.  
  50.    (set MSG_DESTINATION (cat  "Where would you like to install %s?\n"
  51.                            "A drawer named \"France\" will be created there and"
  52.                            " all files needed by %s will be copied into this \"France\" drawer."))
  53.  
  54.    (set MSG_DEARCHIVING "\n\nDe-archiving %s\nto your\n%s\ndirectory\n\n\nBe patient...")
  55.  
  56.    (set MSG_PROB_LHX "Problem unarchiving \"France.lha\", abrting.")
  57.  
  58.    (set MSG_FONT        (cat  "\n\n\n%s is supplied with an Helvetica font in 9 points size,"
  59.                            " optimized by myself. Would you like to copy it to your"
  60.                            " \"Fonts:\" directory?"))
  61.  
  62.    (set MSG_HELP_FONT      (cat  "For optimum comfort, your screen should be set at least"
  63.                            " to 640 x 512, 8 colo(u)rs.\n\n"
  64.                            "The supplied font (Helvetica 9) is perfect for a 17\""
  65.                            " or bigger screen.\n\n"
  66.                            "Once you have installed it, remove the '@remark ' in front of"
  67.                            " '@Font helvetica.font 9', at the beginning of France.Guide"))
  68.  
  69.    (set MSG_COPY_FONT      "Copy font")
  70.    
  71.  
  72.    (set MSG_FIXFONTS "\n\n\"Sys:System/FixFonts\" is currently updating your \"Fonts:\" directory.")
  73.  
  74.    (set MSG_PATH        (cat  "\n\nFor %s to work properly, the path where you just installed %s"
  75.                            " must be included in the \"AmigaGuide/Path\" system environment"
  76.                            " variable.\n\n"
  77.                            " Would you like me to modify (or create, if necessary) this"
  78.                            " environment variable?"))
  79.  
  80.    (set MSG_HELP_PATH      (cat  "If you choose to \"skip this part\", you'll have to do it"
  81.                            " manually. For more infos about this environment variable, click"
  82.                            " on the \"Help\" gadget while you are using AmigaGuide (or MultiView)."))
  83.  
  84.    (set MSG_APPENDING_PATH (cat  "Updating your \"ENV:AmigaGuide/Path\" environment variable"
  85.                            " and copying it to \"ENVARC:AmigaGuide/Path\"."))
  86.  
  87.    (set MSG_SKIP           "Skip this part")
  88.  
  89.    (set MSG_YES            "Yes")
  90.  
  91. ›  (set MSG_CLEANUP "\n\nDo you want me to cleanup after myself?\n\n ;-)")
  92.    
  93.    (set MSG_HELP_CLEANUP (cat "I will delete the files that were only needed for the installation."
  94.                               "\n\nBut after the installation is done, you'll have to delete the main"
  95.                               " (empty) directory, as I am currently inside it ;-)"))
  96.                               
  97.    (set MSG_DOING_CLEANUP (cat "Cleaning up...\n\n"
  98.                                "But after the installation is done, you'll have to delete the main"
  99.                                " (empty) directory\n\n;-)"))
  100.  
  101.    (set MSG_THANKS "\n\nThank you for having installed %s!")
  102.  
  103. ))
  104.  
  105. ; Français (ou presque ;-) (par Gérard Cornu) ------------------------------
  106.  
  107. (procedure P_français (
  108.    
  109.    (set README_FILE "Lise_&_Moi")
  110.  
  111.    (set MSG_NO_SPACE (cat "Il n'y a pas assez d'espace disque libre sur %s, %s a besoin"
  112.                           " de %ld Ko et il n'y a que %ld Ko de libre. Vous devez libérer"
  113.                           " plus de %ld Ko sur %s.\n\n"))
  114.  
  115.    (set MSG_NO_SPACE_0 (cat "Si vous voulez installer %s en RAM:, et que vous avez plus de"
  116.                            " %ld Ko de RAM libre, vous devrez effacer les lignes concernées"
  117.                            " dans le script d'installation.\n(Le disque RAM: est toujours plein ;-)"))
  118.  
  119.    (set MSG_BAD_KICK "%s nécessite au minimum le système 2.0\n(3.x de préférence !)") 
  120.  
  121.    (set MSG_NOT_3.0        (cat  "\n\nIl semblerait que votre machine n'utilise pas le"
  122.                               " système 3.x. %s peut fonctionner sur"
  123.                               " votre système, avec AmigaGuide©, mais vous ne pourrez pas afficher les"
  124.                               " cartes directement depuis %s.\n\n"
  125.                               " Cliquez sur \"Aide...\" pour les modifications"
  126.                               " à apporter de façon à voir les cartes comme sous"
  127.                               " le système 3.x, (ou presque ;-)")) 
  128.  
  129.    (set MSG_HELP_NOT_3.0   (cat  "Il suffit simplement de remplacer, dans le fichier"
  130.                               " France.guide, les\n\n"
  131.                               "    LINK Cartes/....iff/MAIN}\n\n"
  132.                               "par des\n\n"
  133.                               "    SYSTEM \"PPShow Cartes:....iff\"}\n\n"
  134.                               "Ensuite il vous faudra assigner Cartes: au répertoire où"
  135.                               " vous aurez installé France Guide, terminé par Cartes, par exemple:\n\n"
  136.                               "assign Cartes:  Disque:Répertoire/France/Cartes\n\n"
  137.                               "Vous pouvez évidemment remplacer PPShow par votre"
  138.                               " afficheur d'images préféré. Notez que les guillemets ci-dessous"
  139.                               " ont leur importance.\n\n"
  140.                               "Deux chercher/remplacer dans votre éditeur de texte y parviendront:\n\n"
  141.                               "Chercher:\n\n"
  142.                               "LINK Cartes/\n\n"
  143.                               "Remplacer par:\n\n"
  144.                               "SYSTEM \"PPShow Cartes:\n\n"
  145.                               "Puis, chercher:\n\n"
  146.                               ".iff/MAIN}\n\n"
  147.                               "et remplacer par:\n\n"
  148.                               ".iff\"}\n\n"
  149.                               "Encore une fois les guillemets ne sont pas là uniquement pour"
  150.                               " décorer ;-).\n\n"
  151.                               "Le répertoire qui contient l'afficheur d'images,\n"
  152.                               "PPShow dans notre exemple, doit bien sûr être\n"
  153.                               "dans votre chemin de commandes (\"Path\")."))
  154.  
  155.    (set MSG_DESTINATION    (cat  "Où désirez-vous installer l'ensemble %s?\n"
  156.                               "Un répertoire \"France\" y sera créé, et l'ensemble"
  157.                               " des fichiers nécessaires à %s sera copié dans ce répertoire"
  158.                               " \"France\".")) 
  159.  
  160.    (set MSG_DEARCHIVING "\n\nExtraction de %s\nvers votre répertoire\n%s\n\n\nSoyez patient(e)...")
  161.  
  162.    (set MSG_PROB_LHX "Problème en tentant de désarchiver \"France.lha\", abandon.")
  163.  
  164.    (set MSG_FONT           (cat  "\n\n\n%s est fournie avec une font, Helvetica en 9 points,"
  165.                               " optimisée par mes soins. Voulez-vous la copier dans"
  166.                               " votre répertoire \"Fonts:\"?"))
  167.  
  168.    (set MSG_HELP_FONT      (cat  "Pour un confort optimal, votre écran doit être au"
  169.                               " minimum en 640 x 512, 8 couleurs.\n\n"
  170.                               "La police de caractère fournie (Helvetica 9) est parfaite"
  171.                               " pour un écran 17 pouces ou supérieur.\n\n"
  172.                               "Une fois la fonte installée, enlevez le '@remark ',"
  173.                               " devant '@Font helvetica.font 9', au début de France.Guide"))
  174.  
  175.    (set MSG_COPY_FONT         "Copier la font")
  176.  
  177.    (set MSG_FIXFONTS "\n\n\"Sys:System/FixFonts\" est en train de mettre à jour votre répertoire \"Fonts:\"")
  178.  
  179.    (set MSG_PATH           (cat  "\n\nAfin que %s fonctionne correctement"
  180.                               " il est nécessaire que le chemin où vous venez d'installer %s soit"
  181.                               " inclus dans la variable d'environnement système \"AmigaGuide/path\".\n\n"
  182.                               "Voulez-vous que je modifie (ou crée, si nécessaire)"
  183.                               " cette variable d'environnement?"))
  184.  
  185.    (set MSG_HELP_PATH      (cat  "Si vous choisissez de \"Passer cette partie\", il vous faudra le"
  186.                               " faire manuellement. Pour plus d'infos sur cette variable"
  187.                               " d'environnement, cliquez sur le bouton \"Aide\""
  188.                               " lorsque vous êtes dans AmigaGuide (ou Multiview)."))
  189.  
  190.    (set MSG_APPENDING_PATH (cat  "Mise à jour de votre variable d'environnement"
  191.                               " \"ENV:AmigaGuide/Path\" et copie dans \"ENVARC:AmigaGuide/Path\"."))
  192.  
  193.    (set MSG_SKIP              "Passer cette partie")
  194.  
  195.    (set MSG_YES               "Oui")
  196.  
  197. ›  (set MSG_CLEANUP "\n\nVoulez-vous que je fasse le ménage?\n\n ;-)")
  198.    
  199.    (set MSG_HELP_CLEANUP (cat "Je vais effacer les fichiers qui n'étaient utiles que pour l'installation."
  200.                               "\n\nMais une fois l'installation terminée il vous restera à effacer le répertoire"
  201.                               " principal (vide), puisque j'y suis en ce moment ;-)"))
  202.                               
  203.    (set MSG_DOING_CLEANUP (cat "Je fais l'ménage...\n\nUne fois l'installation terminée ils vous"
  204.                                " restera à effacer le répertoire principal (vide)\n\n;-)"))
  205.    
  206.    (set MSG_THANKS "\n\n\nMerci d'avoir installé %s!")
  207. ))
  208.  
  209. ; DEUTSCH (translation by Andreas Regul) -----------------------------
  210. (procedure P_deutsch (
  211.  
  212.    (set README_FILE "Lies_Mich")
  213.  
  214.    (set MSG_NO_SPACE (cat "Nicht genug freier Speicherplatz auf %s, %s benötigt %ld KB, es sind jedoch nur"
  215.                           " %ld KB frei. Sie müssen weitere %ld KB freimachen auf %s.\n\n"))
  216.  
  217.    (set MSG_NO_SPACE_0 (cat " Wenn %s nur auf der RAM-Disk installiert werden soll und Sie mindestens %ld"
  218.                             " freie RAM-Kapazität besitzen, müssen die entsprechenden Zeilen im Installations-"
  219.                             " Skript entfernt werden.\n(Die RAM-Disk ist ja immer voll ;-)"))
  220.  
  221.    (set MSG_BAD_KICK "%s benötigt mindestens System 2.0\n(3.x bevorzugt !)")
  222.  
  223.    (set MSG_NOT_3.0  (cat  "\n\nSie verwenden nicht system 3.x."
  224.                            " %s kann auf Ihrem System mit AmigaGuide© verwendet werden, es ist jedoch nicht"
  225.                            " möglich, Karten direkt aus %s heraus zu starten.\n\n"
  226.                            "Wählen Sie \"Help...\", um weitere Infos hierzu zu erhalten."))
  227.  
  228.    (set MSG_HELP_NOT_3.0 (cat "Sie müssen in der Datei France.Guide alle Zeilen mit\n\n"
  229.                            "  LINK Cartes/....iff/MAIN}\n\n"
  230.                            "durch\n\n"
  231.                            "  SYSTEM \"PPShow Cartes:....iff\"}\n\n"
  232.                            "ersetzen. Danach muß ein Assign Cartes: auf das Verzeichnis eingerichtet"
  233.                            " werden, wo sich France.guide mit den zugehörigen Karten befindet. Beispiel:\n\n"
  234.                            "assign Cartes:  My_HD:My_directory/France/Cartes\n\n"
  235.                            "Natürlich können Sie PPShow durch Ihren bevorzugten Bildanzeiger ersetzen."
  236.                            " Bitte beachten Sie, daß die Anführungszeichen wichtig sind.\n\n"
  237.                            "Mit zwei Suchen/Ersetzen-Befehle im Editor wird die Veränderung wie folgt durchgeführt:\n\n"
  238.                            "Suchen:\n\n"
  239.                            "LINK Cartes/\n\n"
  240.                            "Ersetzen durch:\n\n"
  241.                            "SYSTEM \"PPShow Cartes:\n\n"
  242.                            "Danach suchen:\n\n"
  243.                            ".iff/MAIN}\n\n"
  244.                            " und ersetzen durch:\n\n"
  245.                            ".iff\"}\n\n"
  246.                            "Wichtig: Die Anführungsstriche sind nicht zu Dekorationszwecken vorhanden ;-)\n\n"
  247.                            "Das Verzeichnis des Bildanzeigers, PPShow in diesem Beispiel,"
  248.                            " muß im Befehlspfad Ihres Amiga enthalten sein."))
  249.  
  250.    (set MSG_DESTINATION (cat  "Wo soll %s installiert werden ?\n"
  251.                            "Ein Verzeichnis \"France\" wird dort erzeugt und alle von"
  252.                            " %s benötigten Dateien dorthin kopiert."))
  253.  
  254.    (set MSG_DEARCHIVING "\n\nEntpacke %s\nin das Verzeichnis\n%s\n\n\nBitte etwas Geduld...")
  255.  
  256.    (set MSG_PROB_LHX "Problem beim Entpacken von \"France.lha\", Abbruch.")
  257.  
  258.    (set MSG_FONT        (cat  "\n\n\n%s enthält einen Helvetica-Zeichensatz in 9 Punkt Größe,"
  259.                            " verbessert von mir selber. Soll er in das Verzeichnis"
  260.                            " \"Fonts:\" kopiert werden ?"))
  261.  
  262.    (set MSG_HELP_FONT      (cat  "Zur optimalen Wiedergabe sollte der Bildschirm auf mindestens"
  263.                            " 640 x 512 Pixel und 8 Farben eingestellt sein.\n\n"
  264.                            "Der beiliegende Zeichensatz (Helvetica 9) ist günstig für 17\""
  265.                            " Bildschirme oder größere.\n\n"
  266.                            "Wenn er installiert wurde, muß '@remark ' vor"
  267.                            " '@Font helvetica.font 9' in der Datei France.Guide entfernt werden."))
  268.  
  269.    (set MSG_COPY_FONT      "Kopiere Zeichensatz")
  270.  
  271.  
  272.    (set MSG_FIXFONTS "\n\n\"Sys:System/FixFonts\" aktualisiert Ihr \"Fonts:\"-Verzeichnis.")
  273.  
  274.    (set MSG_PATH        (cat  "\n\nDamit %s einwandfrei läuft, muß der Pfad, in dem %s"
  275.                            " gerade installiert wurde, in der Umgebungsvariable \"AmigaGuide/Path\""
  276.                            " ergänzt werden.\n\n"
  277.                            " Soll diese Änderung automatisch durchgeführt werden ? (Die Umgebungsvariable"
  278.                            " wird erzeugt, falls sie noch nicht vorhanden sein sollte)"))
  279.  
  280.    (set MSG_HELP_PATH      (cat  "Wenn Sie \"skip this part\" gewählt haben, müssen Sie die Ergänzung"
  281.                            " selber durchführen. Nähere Informationen zu dieser Umgebungsvariable finden"
  282.                            " Sie unter \"Help\", wenn Sie AmigaGuide (oder MultiView) verwenden."))
  283.  
  284.    (set MSG_APPENDING_PATH (cat  "Ergänze die \"ENV:AmigaGuide/Path\" Umgebungsvariable"
  285.                            " und kopiere sie nach \"ENVARC:AmigaGuide/Path\"."))
  286.  
  287.    (set MSG_SKIP           "Überspringen")
  288.  
  289.    (set MSG_YES            "Ja")
  290.  
  291. ›  (set MSG_CLEANUP "\n\nSoll nach der Installation aufgeräumt werden ?\n\n ;-)")
  292.  
  293.    (set MSG_HELP_CLEANUP (cat "Alle Dateien, die nur während der Installation benötigt wurden, werden gelöscht."
  294.                               "\n\nAllerdings müssen Sie das Verzeichnis selber löschen, da sich das"
  295.                               " Installationsskript im selben befindet ;-)"))
  296.  
  297.    (set MSG_DOING_CLEANUP (cat "Räume auf...\n\n"
  298.                                "Löschen Sie nach der Installation das leere"
  299.                                " Verzeichnis\n\n;-)"))
  300.  
  301.    (set MSG_THANKS "\n\nVielen Dank für die Installation von %s!")
  302.  
  303. ))
  304.  
  305. ;------------------------------------------------------------------------------
  306.  
  307.  
  308. ; extracting archive command line
  309. (set lhx_cmd "lhx -a -k e ")
  310.  
  311. ; what are we speaking around here, not much ;^)
  312. (if (= @language "english")  (P_english))
  313. (if (= @language "français") (P_français))
  314. (if (= @language "deutsch")  (P_deutsch))
  315.  
  316. ; Choose default tool for guide, depending on user's OS version
  317. (set osversion  (/ (getversion) 65536))
  318. (if (>= osversion 39)
  319.    (set guide_reader "MultiView") 
  320.    (set guide_reader "AmigaGuide")
  321. )
  322. (set installed "")
  323.  
  324. (welcome)
  325.  
  326. (if (< osversion 37)
  327.    (abort (MSG_BAD_KICK @app-name))
  328. )
  329.  
  330. (if (< osversion 39)
  331.    (message (MSG_NOT_3.0 @app-name @app-name) (help MSG_HELP_NOT_3.0))
  332. )   
  333.  
  334. (set dest_dir
  335.    (askdir (prompt (MSG_DESTINATION @app-name @app-name))
  336.            (help @askdir-help)
  337.            (default "Help:")
  338.            (newpath)
  339.    )
  340. )
  341.  
  342. ; France Guide now needs a bit of room, so shall we have a look...
  343. (set free_space (/ (getdiskspace dest_dir) 1024))
  344. (set to_be_freed (- space_needed free_space))
  345.  
  346. (if (< free_space space_needed)
  347.    (if (= free_space 0) ; special message if free_space = 0: maybe want to install in RAM
  348.       (abort ((cat (MSG_NO_SPACE dest_dir @app-name space_needed free_space to_be_freed dest_dir) 
  349.                    (MSG_NO_SPACE_0  @app-name space_needed)))
  350.       ) ; else normal message
  351.       (abort (MSG_NO_SPACE dest_dir @app-name space_needed free_space to_be_freed dest_dir))
  352.    )
  353. )   
  354.  
  355. ; the following is needed for the lhx command, Installer
  356. ; don't put a '/' if it's a dir (?!)
  357.    (set @default-dest dest_dir)
  358.    (set install_dir dest_dir)
  359.    (if (<> ":" (substr @default-dest (- (strlen @default-dest) 1) 1))
  360.       (set dest_dir (cat dest_dir "/"))
  361.    )   
  362.  
  363. (working (MSG_DEARCHIVING @app-name dest_dir))
  364. (if (<> (run (cat "/" lhx_cmd " /France " dest_dir)) 0)
  365.    (abort MSG_PROB_LHX)
  366. )   
  367.  
  368. (set @default-dest (tackon dest_dir "France"))
  369.  
  370. (copyfiles (source (cat "/" README_FILE))
  371.            (dest @default-dest)
  372.            (infos)
  373.            (files)
  374.            (nogauge)
  375. )           
  376.  
  377. (set installed "YES")
  378.  
  379. (set font
  380.    (askbool (prompt (MSG_FONT @app-name))
  381.             (help MSG_HELP_FONT)
  382.             (choices MSG_COPY_FONT MSG_SKIP)
  383.    )
  384. )   
  385.  
  386. (if (= font 1)
  387.    (
  388.       (copyfiles (source "/fonts")
  389.                  (dest "Fonts:")
  390.                  (all)
  391.       )
  392.       (if (exists "Sys:System/FixFonts" (noreq))
  393.          (  
  394.             (working MSG_FIXFONTS)
  395.             (run "Sys:System/FixFonts")
  396.          )
  397.       )            
  398.    )
  399. )                 
  400.  
  401. (set dopath
  402.    (askbool (prompt (MSG_PATH @app-name @app-name))
  403.             (help MSG_HELP_PATH)
  404.             (choices MSG_YES MSG_SKIP)
  405.    )
  406. )               
  407.  
  408. (if (= 1 dopath)
  409.    (
  410.       (working MSG_APPENDING_PATH)
  411.  
  412.       (if (exists "ENV:AmigaGuide/Path" (noreq)) 
  413.          (textfile (dest "ENV:AmigaGuide/Path")
  414.                    (append (getenv "AmigaGuide/Path"))
  415.                    (append (cat " \"" @default-dest "\""))
  416.          )
  417.          (textfile (dest "ENV:AmigaGuide/Path")
  418.                    (append (cat "\"" @default-dest "\""))
  419.          )
  420.       )
  421.       (copyfiles (source "ENV:AmigaGuide/Path")
  422.                  (dest "ENVARC:AmigaGuide")
  423.                  (files)
  424.                  (nogauge)
  425.       )
  426.    )
  427. )         
  428.  
  429. (if (exists (cat @default-dest ".info") (noreq))
  430.    (
  431.       (tooltype   (dest @default-dest) (noposition))
  432.       (set installed "YES")         
  433.    )
  434. )
  435.  
  436. (if (exists (tackon @default-dest "France.guide.info") (noreq))
  437.    (
  438.       (tooltype   (dest (tackon @default-dest "France.guide"))
  439.                   (setdefaulttool guide_reader))
  440.       (set installed "YES")         
  441.    )
  442. )
  443.  
  444. (if (exists (tackon @default-dest (cat README_FILE ".info")) (noreq))
  445.    (
  446.       (tooltype   (dest (tackon @default-dest README_FILE))
  447.                   (noposition) (setdefaulttool guide_reader))
  448.       (set installed "YES")         
  449.    )
  450. )
  451.  
  452. (set cleanup
  453.    (askbool (prompt (MSG_CLEANUP))
  454.             (help MSG_HELP_CLEANUP)
  455.             (choices MSG_YES MSG_SKIP)
  456.    )
  457. )               
  458.  
  459. (if (= cleanup 1)
  460.    (
  461.       (working MSG_DOING_CLEANUP)
  462.       (run "run >NIL: delete >NIL: //France_Guide#? ALL FORCE QUIET")
  463.    )   
  464. )
  465.  
  466. (if (= installed "YES") 
  467.    (exit (MSG_THANKS @app-name))
  468.    (exit)
  469. )   
  470.